home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / show / show.bas next >
Encoding:
BASIC Source File  |  1999-08-06  |  1.0 KB  |  26 lines
  1. Attribute VB_Name = "Module1"
  2. 'Option explicit protects you against anarchie on the source!
  3. Option Explicit
  4. 'You have to define all variables used within the source
  5. Public Unit_vx As Single, Unit_vy As Single
  6. Public Unit_x As Single, Unit_y As Single
  7. Public Coming_From_Form_2 As Long
  8. Public Counter_F2 As Single
  9. Public sw As Single, sh As Single, fw As Single, fh As Single
  10. Public Explosions As Single, Pieces(4) As Single
  11. Public Explosion_No As Single, Piece_No As Single
  12. Public Explosion_x(4) As Single, Explosion_y(4) As Single
  13. Public g As Single
  14. Public Piece_x(4, 64) As Single, Piece_y(4, 64) As Single
  15. Public Piece_vx(4, 64) As Single, Piece_vy(4, 64) As Single
  16. Public Piece_dx(4, 64) As Single, Piece_dy(4, 64) As Single
  17. Public Piece_Content(4, 64) As String
  18. Public Dr_Cont_x1(9), Dr_Cont_y1(9)
  19. Public Dr_Cont_x2(9), Dr_Cont_y2(9)
  20. Public Direction(4, 64) As Single, Rotation_Frq(4, 64)
  21. Public Tmp_Str As String
  22. Public Counter As Single
  23. Public Total_Count(4) As Single
  24. Public File_Stop_Bit As Long
  25.  
  26.